← Index
NYTProf Performance Profile   
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 17:10:45 2013
Reported on Tue Oct 15 17:12:52 2013

Filename(eval 1055)[/usr/share/perl/5.10/CGI.pm:869]
StatementsExecuted 15 statements in 75µs
Eval Invoked At/usr/share/perl/5.10/CGI.pm line 869
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
53369µs110µsCGI::::httpsCGI::https
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1
# spent 110µs (69+41) within CGI::https which was called 5 times, avg 22µs/call: # 2 times (42µs+23µs) by C4::Auth::get_template_and_user at line 381 of /usr/share/koha/lib/C4/Auth.pm, avg 32µs/call # 2 times (16µs+11µs) by CGI::protocol at line 4 of (eval 1133)[CGI.pm:869], avg 14µs/call # once (11µs+7µs) by C4::Auth::get_template_and_user at line 832 of CGI.pm
package CGI; sub https {
2523µs local($^W)=0;
3522µs541µs my ($self,$parameter) = self_or_CGI(@_);
# spent 41µs making 5 calls to CGI::self_or_CGI, avg 8µs/call
4530µs return $ENV{HTTPS} unless $parameter;
5 return $ENV{$parameter} if $parameter=~/^HTTPS/;
6 $parameter =~ tr/-/_/;
7 return $ENV{"HTTPS_\U$parameter\E"} if $parameter;
8 my(@p);
9 for (keys %ENV) {
10 push(@p,$_) if /^HTTPS/;
11 }
12 return @p;
13}
14
15;